home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / array / stringfind.c < prev    next >
C/C++ Source or Header  |  2001-05-12  |  541b  |  35 lines
  1.  
  2. #include "tek/array.h"
  3.  
  4. /* 
  5. **    TEKlib
  6. **    (C) 2001 TEK neoscientists
  7. **    all rights reserved.
  8. **
  9. **    TINT TStringFind(TSTRPTR s1, TSTRPTR s2)
  10. **
  11. **    find dynamic substring in a dynamic string.
  12. **
  13. */
  14.  
  15. TINT TStringFind(TSTRPTR s1, TSTRPTR s2)
  16. {
  17.     if (s1 && s2)
  18.     {
  19.         TARRAY *a1 = ((TARRAY *) s1) - 1;
  20.         TARRAY *a2 = ((TARRAY *) s2) - 1;
  21.  
  22.         if (a1->valid && a2->valid)
  23.         {
  24.             TUINT len1 = a1->len - 1;
  25.             TUINT len2 = a2->len - 1;
  26.             
  27.             if (len2 > 0 && len1 >= len2)
  28.             {
  29.                 return TStringFindSimple(s1, s2, len1, len2);
  30.             }
  31.         }
  32.     }
  33.     return -1;
  34. }
  35.